home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_13_(11-1984).d64 / mlx gazette (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  3KB  |  94 lines
  1. 100 PRINT"[147]";CHR$(142);CHR$(8);:POKE53281,1:POKE53280,1
  2. 101 POKE788,52:REM DISABLE RUN/STOP
  3. 110 PRINT"                                        ";
  4. 120 PRINT"               [146][223][169]   [223][146][223][169][169]             ";
  5. 130 PRINT"                [165]  [146][169][169][223][146][223]             ";
  6. 140 PRINT"                                        "
  7. 150 V=53248:POKE2040,13:POKE2041,13:FORI=832TO894:POKEI,255:NEXT:POKEV+27,3
  8. 160 POKEV+21,3:POKEV+39,2:POKEV+40,2:POKEV,144:POKEV+1,54:POKEV+2,192:POKEV+3,54
  9. 170 POKEV+29,3
  10. 180 FORI=0TO23:READA:POKE679+I,A:POKEV+39,A:POKEV+40,A:NEXT
  11. 185 DATA169,251,166,254,164,255,32,216,255,133,253,96
  12. 187 DATA169,0,166,251,164,252,32,213,255,133,253,96
  13. 190 POKEV+39,7:POKEV+40,7
  14. 200 PRINT"[156][144]   A FAILSAFE MACHINE LANGUAGE EDITOR"
  15. 210 PRINT"[152][145][145]STARTING ADDRESS?        [157][157][157][157][157][157][157][157][157]";:INPUTS:F=1-F:C$=CHR$(31+119*F)
  16. 220 IFS<256OR(S>40960ANDS<49152)ORS>53247THENGOSUB3000:GOTO210
  17. 225 PRINT:PRINT:PRINT
  18. 230 PRINT"[152][145][145]ENDING ADDRESS?        [157][157][157][157][157][157][157][157][157]";:INPUTE:F=1-F:C$=CHR$(31+119*F)
  19. 240 IFE<256OR(E>40960ANDE<49152)ORE>53247THENGOSUB3000:GOTO230
  20. 250 IFE<STHENPRINTC$;"ENDING < START  ":GOSUB1000:GOTO230
  21. 260 PRINT:PRINT:PRINT
  22. 300 PRINT"[147]";CHR$(14):AD=S:POKEV+21,0
  23. 310 PRINTRIGHT$("0000"+MID$(STR$(AD),2),5);":";:FORJ=1TO6
  24. 320 GOSUB570:IFN=-1THENJ=J+N:GOTO320
  25. 390 IFN=-211THEN710
  26. 400 IFN=-204THEN790
  27. 410 IFN=-206THENPRINT:INPUT"[197]NTER [206]EW [193]DDRESS";ZZ
  28. 415 IFN=-206THENIFZZ<SORZZ>ETHENPRINT"OUT OF RANGE":GOSUB1000:GOTO410
  29. 417 IFN=-206THENAD=ZZ:PRINT:GOTO310
  30. 420 IFN<>-196THEN480
  31. 430 PRINT:INPUT"[196]ISPLAY:[198]ROM";F:PRINT,"[212]O";:INPUTT
  32. 440 IFF<SORF>EORT<SORT>ETHENPRINT"[193]T LEAST";S;"[157], NOT MORE THAN";E:GOTO430
  33. 450 FORI=FTOTSTEP6:PRINT:PRINTRIGHT$("0000"+MID$(STR$(I),2),5);":";
  34. 451 FORK=0TO5:N=PEEK(I+K):PRINTRIGHT$("00"+MID$(STR$(N),2),3);",";
  35. 460 GETA$:IFA$>""THENPRINT:PRINT:GOTO310
  36. 470 NEXTK:PRINTCHR$(20);:NEXTI:PRINT:PRINT:GOTO310
  37. 480 IFN<0THENPRINT:GOTO310
  38. 490 A(J)=N:NEXTJ
  39. 500 CKSUM=AD-INT(AD/256)*256:FORI=1TO6:CKSUM=(CKSUM+A(I))AND255:NEXT
  40. 510 PRINTCHR$(18);:GOSUB570:PRINTCHR$(20)
  41. 515 IFN=CKSUMTHEN530
  42. 520 PRINT:PRINT"[204]INE [197]NTERED [215]RONG : [210]E-ENTER":PRINT:GOSUB1000:GOTO310
  43. 530 GOSUB2000
  44. 540 FORI=1TO6:POKEAD+I-1,A(I):NEXT:POKE54272,0:POKE54273,0
  45. 550 AD=AD+6:IFAD<ETHEN310
  46. 560 GOTO710
  47. 570 N=0:Z=0
  48. 580 PRINT"[166]";
  49. 581 GETA$:IFA$=""THEN581
  50. 585 PRINTCHR$(20);:A=ASC(A$):IFA=13ORA=44ORA=32THEN670
  51. 590 IFA>128THENN=-A:RETURN
  52. 600 IFA<>20THEN630
  53. 610 GOSUB690:IFI=1ANDT=44THENN=-1:PRINT"[157] [157]";:GOTO690
  54. 620 GOTO570
  55. 630 IFA<48ORA>57THEN580
  56. 640 PRINTA$;:N=N*10+A-48
  57. 650 IFN>255THENA=20:GOSUB1000:GOTO600
  58. 660 Z=Z+1:IFZ<3THEN580
  59. 670 IFZ=0THENGOSUB1000:GOTO570
  60. 680 PRINT",";:RETURN
  61. 690 S%=PEEK(209)+256*PEEK(210)+PEEK(211)
  62. 691 FORI=1TO3:T=PEEK(S%-I)
  63. 695 IFT<>44ANDT<>58THENPOKES%-I,32:NEXT
  64. 700 PRINTLEFT$("[157][157][157]",I-1);:RETURN
  65. 710 PRINT"[147]*** [211]AVE ***"
  66. 720 INPUT" [198]ILENAME";F$
  67. 730 PRINT:PRINT"[212][146]APE OR [196][146]ISK: ([212]/[196])"
  68. 740 GETA$:IFA$<>"T"ANDA$<>"D"THEN740
  69. 750 DV=1-7*(A$="D"):IFDV=8THENF$="0:"+F$
  70. 760 OPEN1,DV,1,F$:POKE252,S/256:POKE251,S-PEEK(252)*256
  71. 765 POKE255,E/256:POKE254,E-PEEK(255)*256
  72. 770 POKE253,10:SYS679:CLOSE1:IFPEEK(253)>9ORPEEK(253)=0THENPRINT"[196]ONE.":END
  73. 780 PRINT"[197]RROR ON [211]AVE.  [212]RY AGAIN.":IFDV=1THEN720
  74. 781 OPEN15,8,15:INPUT#15,DS,DS$:PRINTDS;DS$:CLOSE15:GOTO720
  75. 790 PRINT"[147]*** [204]OAD ***"
  76. 800 INPUT" [198]ILENAME";F$
  77. 810 PRINT:PRINT"[212][146]APE OR [196][146]ISK: ([212]/[196])"
  78. 820 GETA$:IFA$<>"T"ANDA$<>"D"THEN820
  79. 830 DV=1-7*(A$="D"):IFDV=8THENF$="0:"+F$
  80. 840 OPEN1,DV,0,F$:POKE252,S/256:POKE251,S-PEEK(252)*256
  81. 850 POKE253,10:SYS691:CLOSE1
  82. 860 IFPEEK(253)>9ORPEEK(253)=0THENPRINT:PRINT:GOTO310
  83. 870 PRINT"[197]RROR ON [204]OAD.  [212]RY AGAIN.":IFDV=1THEN800
  84. 880 OPEN15,8,15:INPUT#15,DS,DS$:PRINTDS;DS$:CLOSE15:GOTO800
  85. 1000 REM BUZZER
  86. 1001 POKE54296,15:POKE54277,45:POKE54278,165
  87. 1002 POKE54276,33:POKE54273,6:POKE54272,5
  88. 1003 FORT=1TO200:NEXT:POKE54276,32:POKE54273,0:POKE54272,0:RETURN
  89. 2000 REM BELL SOUND
  90. 2001 POKE54296,15:POKE54277,0:POKE54278,247
  91. 2002 POKE54276,17:POKE54273,40:POKE54272,0
  92. 2003 FORT=1TO100:NEXT:POKE54276,16:RETURN
  93. 3000 PRINTC$;"NOT ZERO PAGE OR ROM":GOTO1000
  94.